kohonen_pattern_mutator Subroutine

   subroutine kohonen_pattern_mutator(current_pattern,pattern_value)
!========================================================================================
!!   kohonen_pattern_mutator
      class(kohonen_pattern) :: current_pattern
!! A `kohonen_pattern` object
      type(kohonen_prototype),intent(inout) :: pattern_value
!
      current_pattern%pattern=pattern_value;
!
   end subroutine kohonen_pattern_mutator